BBS in a Box 12

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Tele / C / Comet2.1.3.sit / emlib / setscript.asm < prev next >
MacBinary | 1991-02-22 | 2.0 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: setscript.asm
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	freeCAD assembly `(other/freeCADAssembly)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Fri Feb 22 10:14:57 1991, modified Fri Feb 22 10:14:57 1991, creator 'MPS ', type ASCII, 1419 bytes "setscript.asm" , at 0x60b 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 73 65 74 73 63 72 | 69 70 74 2e 61 73 6d 00 |..setscr|ipt.asm.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 05 8b 00 | 00 01 7e a3 ea e5 f1 a3 |........|..~.....|
|00000060| ea e5 f1 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 f7 5a 00 00 |........|.....Z..|
|00000080| 3b 09 43 6f 70 79 72 69 | 67 68 74 20 43 6f 72 6e |;.Copyri|ght Corn|
|00000090| 65 6c 6c 20 55 6e 69 76 | 65 72 73 69 74 79 20 31 |ell Univ|ersity 1|
|000000a0| 39 38 36 2e 20 20 41 6c | 6c 20 72 69 67 68 74 73 |986.  Al|l rights|
|000000b0| 20 61 72 65 20 72 65 73 | 65 72 76 65 64 2e 0d 3b | are res|erved..;|
|000000c0| 09 6b 65 76 69 6e 20 65 | 72 69 63 20 73 61 75 6e |.kevin e|ric saun|
|000000d0| 64 65 72 73 0d 0d 09 09 | 70 75 62 6c 69 63 09 5f |ders....|public._|
|000000e0| 73 65 74 73 63 72 69 70 | 74 0d 09 09 70 75 62 6c |setscrip|t...publ|
|000000f0| 69 63 09 5f 6b 65 79 74 | 72 6f 6e 0d 0d 3b 09 41 |ic._keyt|ron..;.A|
|00000100| 73 73 65 6d 62 6c 79 20 | 6c 61 6e 67 75 61 67 65 |ssembly |language|
|00000110| 20 69 6e 74 65 72 66 61 | 63 65 20 74 6f 20 74 68 | interfa|ce to th|
|00000120| 65 20 53 63 72 69 70 74 | 20 4d 67 72 20 72 6f 75 |e Script| Mgr rou|
|00000130| 74 69 6e 65 73 20 77 65 | 20 6e 65 65 64 0d 3b 09 |tines we| need.;.|
|00000140| 74 6f 20 66 69 78 20 74 | 68 65 20 4f 70 74 69 6f |to fix t|he Optio|
|00000150| 6e 20 45 2c 49 2c 4e 2c | 55 20 65 61 74 69 6e 67 |n E,I,N,|U eating|
|00000160| 20 62 65 68 61 76 69 6f | 72 20 6f 66 20 74 68 65 | behavio|r of the|
|00000170| 20 73 74 61 6e 64 61 72 | 64 20 73 63 72 69 70 74 | standar|d script|
|00000180| 0d 3b 09 54 68 65 20 63 | 61 6c 6c 73 20 61 72 65 |.;.The c|alls are|
|00000190| 3a 0d 3b 0d 3b 09 09 73 | 63 72 69 70 74 20 3d 20 |:.;.;..s|cript = |
|000001a0| 47 65 74 45 6e 76 69 72 | 6f 6e 73 28 73 6d 4b 65 |GetEnvir|ons(smKe|
|000001b0| 79 53 63 72 69 70 74 29 | 3b 0d 3b 09 09 69 66 20 |yScript)|;.;..if |
|000001c0| 28 21 53 65 74 53 63 72 | 69 70 74 28 28 69 6e 74 |(!SetScr|ipt((int|
|000001d0| 29 20 73 63 72 69 70 74 | 2c 20 73 6d 53 63 72 69 |) script|, smScri|
|000001e0| 70 74 4b 65 79 73 2c 20 | 28 6c 6f 6e 67 29 20 45 |ptKeys, |(long) E|
|000001f0| 49 4e 55 53 43 52 49 50 | 54 29 20 7b 0d 3b 09 09 |INUSCRIP|T) {.;..|
|00000200| 09 4b 65 79 53 63 72 69 | 70 74 28 73 63 72 69 70 |.KeyScri|pt(scrip|
|00000210| 74 29 3b 0d 3b 09 09 7d | 0d 3b 09 09 0d 3b 20 73 |t);.;..}|.;...; s|
|00000220| 68 6f 76 65 20 74 68 65 | 73 65 20 76 61 6c 75 65 |hove the|se value|
|00000230| 73 20 28 66 72 6f 6d 20 | 4d 50 57 20 67 6c 75 65 |s (from |MPW glue|
|00000240| 29 20 6f 6e 74 6f 20 74 | 68 65 20 73 74 61 63 6b |) onto t|he stack|
|00000250| 20 61 73 20 72 6f 75 74 | 69 6e 65 20 73 65 6c 65 | as rout|ine sele|
|00000260| 63 74 6f 72 73 0d 3b 0d | 3b 09 47 65 74 45 6e 76 |ctors.;.|;.GetEnv|
|00000270| 69 72 6f 6e 73 20 3d 20 | 24 38 34 30 32 30 30 30 |irons = |$8402000|
|00000280| 38 0d 3b 09 53 65 74 53 | 63 72 69 70 74 09 3d 20 |8.;.SetS|cript.= |
|00000290| 24 38 32 30 38 30 30 30 | 65 0d 3b 09 4b 65 79 53 |$8208000|e.;.KeyS|
|000002a0| 63 72 69 70 74 09 3d 20 | 24 38 30 30 32 30 30 30 |cript.= |$8002000|
|000002b0| 34 0d 3b 0d 3b 53 65 74 | 53 63 72 69 70 74 28 73 |4.;.;Set|Script(s|
|000002c0| 63 72 69 70 74 6e 75 6d | 29 0d 3b 6c 6f 6e 67 20 |criptnum|).;long |
|000002d0| 73 63 72 69 70 74 6e 75 | 6d 3b 0d 09 0d 5f 73 65 |scriptnu|m;..._se|
|000002e0| 74 73 63 72 69 70 74 0d | 09 6c 69 6e 6b 09 61 36 |tscript.|.link.a6|
|000002f0| 2c 23 30 0d 09 6d 6f 76 | 65 2e 77 09 64 34 2c 2d |,#0..mov|e.w.d4,-|
|00000300| 28 73 70 29 09 09 09 3b | 20 73 61 76 65 20 64 34 |(sp)...;| save d4|
|00000310| 0d 09 0d 09 74 73 74 2e | 77 09 5f 6b 65 79 74 72 |....tst.|w._keytr|
|00000320| 6f 6e 0d 09 62 6e 65 2e | 73 09 61 62 6f 72 74 09 |on..bne.|s.abort.|
|00000330| 09 0d 09 0d 09 73 75 62 | 2e 77 09 23 34 2c 73 70 |.....sub|.w.#4,sp|
|00000340| 09 09 09 09 3b 20 63 6c | 65 61 72 20 73 70 61 63 |....; cl|ear spac|
|00000350| 65 20 66 6f 72 20 72 65 | 73 75 6c 74 0d 09 6d 6f |e for re|sult..mo|
|00000360| 76 65 2e 77 09 23 32 32 | 2c 2d 28 73 70 29 09 09 |ve.w.#22|,-(sp)..|
|00000370| 09 3b 20 32 32 20 3d 20 | 73 6d 4b 65 79 53 63 72 |.; 22 = |smKeyScr|
|00000380| 69 70 74 0d 09 6d 6f 76 | 65 2e 6c 09 23 24 38 34 |ipt..mov|e.l.#$84|
|00000390| 30 32 30 30 30 38 2c 2d | 28 73 70 29 09 3b 20 47 |020008,-|(sp).; G|
|000003a0| 65 74 45 6e 76 69 72 6f | 6e 73 20 73 65 6c 65 63 |etEnviro|ns selec|
|000003b0| 74 6f 72 0d 09 64 63 2e | 77 09 24 61 38 62 35 09 |tor..dc.|w.$a8b5.|
|000003c0| 09 09 09 09 09 3b 20 53 | 63 72 69 70 74 55 74 69 |.....; S|criptUti|
|000003d0| 6c 20 54 72 61 70 0d 09 | 6d 6f 76 65 2e 6c 09 28 |l Trap..|move.l.(|
|000003e0| 73 70 29 2b 2c 64 30 09 | 09 09 3b 20 70 6f 70 20 |sp)+,d0.|..; pop |
|000003f0| 72 65 73 75 6c 74 0d 09 | 0d 09 6d 6f 76 65 2e 77 |result..|..move.w|
|00000400| 09 64 30 2c 64 34 09 09 | 09 09 3b 20 73 61 76 65 |.d0,d4..|..; save|
|00000410| 20 74 68 65 20 73 63 72 | 69 70 74 20 23 0d 0d 09 | the scr|ipt #...|
|00000420| 73 75 62 2e 77 09 23 32 | 2c 73 70 09 09 09 09 3b |sub.w.#2|,sp....;|
|00000430| 20 63 6c 65 61 72 20 73 | 70 61 63 65 20 66 6f 72 | clear s|pace for|
|00000440| 20 72 65 73 75 6c 74 0d | 09 6d 6f 76 65 2e 77 09 | result.|.move.w.|
|00000450| 64 30 2c 2d 28 73 70 29 | 09 09 09 3b 20 70 75 73 |d0,-(sp)|...; pus|
|00000460| 68 20 74 68 65 20 73 63 | 72 69 70 74 20 23 20 72 |h the sc|ript # r|
|00000470| 65 73 75 6c 74 0d 09 6d | 6f 76 65 2e 77 09 23 33 |esult..m|ove.w.#3|
|00000480| 32 2c 2d 28 73 70 29 09 | 09 09 3b 20 73 6d 53 63 |2,-(sp).|..; smSc|
|00000490| 72 69 70 74 4b 65 79 73 | 0d 09 6d 6f 76 65 2e 6c |riptKeys|..move.l|
|000004a0| 09 38 28 61 36 29 2c 2d | 28 73 70 29 09 09 09 3b |.8(a6),-|(sp)...;|
|000004b0| 20 73 65 6c 65 63 74 20 | 6e 65 77 20 73 63 72 69 | select |new scri|
|000004c0| 70 74 20 74 61 62 6c 65 | 20 66 72 6f 6d 20 61 72 |pt table| from ar|
|000004d0| 67 0d 09 6d 6f 76 65 2e | 6c 09 23 24 38 32 30 38 |g..move.|l.#$8208|
|000004e0| 30 30 30 65 2c 2d 28 73 | 70 29 09 3b 20 53 65 74 |000e,-(s|p).; Set|
|000004f0| 53 63 72 69 70 74 20 73 | 65 6c 65 63 74 6f 72 0d |Script s|elector.|
|00000500| 09 64 63 2e 77 09 24 61 | 38 62 35 0d 09 0d 09 6d |.dc.w.$a|8b5....m|
|00000510| 6f 76 65 2e 77 09 28 73 | 70 29 2b 2c 64 30 09 09 |ove.w.(s|p)+,d0..|
|00000520| 09 3b 20 70 6f 70 20 72 | 65 73 75 6c 74 0d 09 74 |.; pop r|esult..t|
|00000530| 73 74 2e 77 09 64 30 0d | 09 62 6e 65 2e 73 09 61 |st.w.d0.|.bne.s.a|
|00000540| 62 6f 72 74 0d 09 0d 09 | 6d 6f 76 65 2e 77 09 64 |bort....|move.w.d|
|00000550| 34 2c 2d 28 73 70 29 09 | 09 09 3b 20 70 75 73 68 |4,-(sp).|..; push|
|00000560| 20 74 68 65 20 73 63 72 | 69 70 74 20 23 20 72 65 | the scr|ipt # re|
|00000570| 73 75 6c 74 0d 09 6d 6f | 76 65 2e 6c 09 23 24 38 |sult..mo|ve.l.#$8|
|00000580| 30 30 32 30 30 30 34 2c | 2d 28 73 70 29 09 3b 20 |0020004,|-(sp).; |
|00000590| 6b 65 79 73 63 72 69 70 | 74 20 73 65 6c 65 63 74 |keyscrip|t select|
|000005a0| 6f 72 0d 09 64 63 2e 77 | 09 24 61 38 62 35 0d 09 |or..dc.w|.$a8b5..|
|000005b0| 62 72 61 2e 73 09 72 65 | 74 75 72 6e 0d 09 0d 61 |bra.s.re|turn...a|
|000005c0| 62 6f 72 74 0d 09 6d 6f | 76 65 2e 6c 09 23 2d 31 |bort..mo|ve.l.#-1|
|000005d0| 2c 64 30 0d 09 0d 72 65 | 74 75 72 6e 0d 09 6d 6f |,d0...re|turn..mo|
|000005e0| 76 65 2e 77 09 28 73 70 | 29 2b 2c 64 34 09 09 09 |ve.w.(sp|)+,d4...|
|000005f0| 3b 20 72 65 73 74 6f 72 | 65 20 64 34 0d 09 75 6e |; restor|e d4..un|
|00000600| 6c 6b 09 61 36 0d 09 72 | 74 73 0d 00 00 00 00 00 |lk.a6..r|ts......|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000690| 00 00 00 02 05 6a 75 6e | 6b 79 02 00 00 00 54 45 |.....jun|ky....TE|
|000006a0| 58 54 3f 3f 3f 3f 01 00 | ff fc 01 50 00 00 00 00 |XT????..|...P....|
|000006b0| 0d 73 65 74 73 63 72 69 | 70 74 2e 61 73 6d 02 00 |.setscri|pt.asm..|
|000006c0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000006d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 a9 8d 3a 80 00 00 | 00 00 00 00 01 7e 00 00 |....:...|.....~..|
|00000700| 0b 00 00 00 00 02 05 6b | 65 76 69 6e 01 00 00 00 |.......k|evin....|
|00000710| 00 12 00 00 00 82 9e 89 | 65 2d a2 00 98 8e 00 00 |........|e-......|
|00000720| 00 00 00 2f 00 60 01 b9 | 00 fe 01 00 00 ec 00 c9 |.../.`..|........|
|00000730| 02 80 ff f8 ff f0 00 00 | 5b 7f 00 00 00 00 00 00 |........|[.......|
|00000740| 00 1b 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 09 00 00 00 00 02 | 03 6c 69 62 01 00 00 00 |........|.lib....|
|00000760| 00 11 00 00 02 27 9c f2 | 28 47 a0 66 59 ae 00 00 |.....'..|(G.fY...|
|00000770| 00 00 00 a2 00 40 01 5e | 01 d4 01 00 00 e3 00 65 |.....@.^|.......e|
|00000780| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 61 72 65 |...H..Mo|naco.are|
|00000790| 20 72 65 73 65 72 76 65 | 64 2e 0d 3b 09 6b 65 76 | reserve|d..;.kev|
|000007a0| 69 6e 20 65 72 69 00 06 | 00 04 00 27 00 00 01 e1 |in eri..|...'....|
|000007b0| 02 00 00 27 00 00 01 e1 | 02 00 a3 ea 9f a1 00 00 |...'....|........|
|000007c0| 02 a7 00 00 02 a7 00 00 | 02 5d 01 00 00 00 01 00 |........|.]......|
|000007d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 1c 80 a0 |...L...L|...2....|
|000007e0| 10 88 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000007f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 1d b7 14 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+